90 PRINT"[147]":INPUT"ENTER FILENAME";F$
100 F$="0:"+F$+",P,R":OPEN2,8,2,F$
110 GET#2,L$:GET#2,H$:CLOSE2
120 L=ASC(L$+CHR$(0)):H=ASC(H$+CHR$(0))
130 A$="0123456789ABCDEF"
140 PRINT"[147]THE HEX ADDRESS IS ";
150 PRINTMID$(A$,INT(H/16)+1,1);
160 PRINTMID$(A$,(HAND15)+1,1);
170 PRINTMID$(A$,INT(L/16)+1,1);
180 PRINTMID$(A$,(LAND15)+1,1)